source("plotting.R")
library(tidyverse)



distance_rep = read_csv("../distance_main_effect_data.csv")
p1=main_effect_vs_historical_voting_rep(distance_rep)
#myp = plot_historical(p1)
#save_plot("figures_for_paper/figure4.pdf", 
#          myp, base_height = 18, base_asp = 1.1,device = cairo_pdf)
myp = plot_historical_default(p1)
save_plot("figures_for_replication/figure4.pdf", 
          myp, base_height = 18, base_asp = 1.1,device = cairo_pdf)